#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use Data::Dumper;

while(1)
{
	my $in = <STDIN>;
	if($in =~ m/q/)
	{
		exit();
	}
	if($in =~ m/r*r/)
	{
		print "OK!\n";
	}
	else{
		print "Try!\n";
		}
	

}